home *** CD-ROM | disk | FTP | other *** search
/ Aminet 5 / Aminet 5 - March 1995.iso / Aminet / util / rexx / xdmd1.lha / Compile.xdme < prev    next >
Text File  |  1994-01-07  |  447b  |  23 lines
  1. /* Compile.xdme */
  2.  
  3. options results
  4. address 'XDME.1'
  5. 'rxresult $filename'
  6. F = result
  7.  
  8. D = lastpos(".", F)
  9. N = '"' || delstr(F, D) || '"'
  10. Ext = delstr(F, 1, D)
  11. F = '"' || F || '"'
  12.  
  13. select
  14.     when Ext = "c" then C = "bin:gcc" F "-Wall -o" N
  15.     when Ext = "cc" then C = "bin:gcc" F "-Wall -lg++ -o" N
  16.     when Ext = "e" then C = "EC >t:err" N
  17.     otherwise exit
  18. end
  19. C = '(' || C || ')'
  20. 'title' C
  21. 'execute' C
  22. 'title (Compiling finished or halted.)'
  23.